Garbo

home *** CD-ROM | disk | FTP | other *** search

/ Garbo / Garbo.cdr / mac / hypercrd / hc2_x / regnpckg.sit / Sticky Buttons / cards.xml < prev next >

Wrap

Text File | 1990-12-10 | 56KB | 1,089 lines

card_3906.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>3906</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>3775</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <content> <layer>background</layer> <id>2</id> <text>eading This Stack┼╕┬á┬á┬á┬á┬áLeave stack and go (back) to the stack ΓÇ£Start HereΓÇ¥ΓÇ║┬á┬á┬á┬á┬á Go to next page, if mouse button held down will keep turning┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬áthe pages. Right arrow key is linked∩¼ü┬á┬á┬á┬á┬á┬áAs above, but previous page. Left arrow key is linked.┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬áClick to Continue</text> </content> <name>Help</name> <script>on mouseUpvisual effect barn door closego to first cdend mouseUpon arrowKeyend arrowKeyon doMenuend doMenuon chooseend choose</script> </card> card_4599.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>4599</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <content> <layer>background</layer> <id>3</id> <text>Page 20 of 20</text> </content> <content> <layer>background</layer> <id>9</id> <text>Summary and Problems</text> </content> <content> <layer>background</layer> <id>2</id> <text>e have presented a method for implementing ΓÇ£stickyΓÇ¥ buttons in HyperCard, based on the combination of the HyperCard v2 active text functions and special fonts. We have designed two fonts; Sticky Button and Sticky Monaco; to draw sticky buttons in Hypercard fields and scripts respectively. Finally we have written an XFCN, Xlate, to support the quick dispatch of sticky button events.ProblemsΓÇó┬á┬áThe sticky buttons are noticably slower than real buttons, at least┬á┬á┬á┬á┬áon my Mac PlusΓÇªΓÇó┬á┬áThe buttons only respond to mouseUp, no mouseDown or┬á┬á┬á┬á┬ámouseWithin etc.ΓÇó┬á┬áThe is a bug in HyperCards clickText & clickChunk functions. If┬á┬á┬á┬á┬áyou click in the right half of a single wide-character words then┬á┬á┬á┬áthey report a hit on the following inter-word gap. Wide is┬á┬á┬á┬árelative, this happens both with a Sticky Buttons ΓÇ£Γé¼ΓÇ¥ and ┬á┬á┬á┬áPalatino ΓÇ£wΓÇ¥ΓÇª</text> </content> <content> <layer>background</layer> <id>12</id> <highlight> <true /> </highlight> </content> <name></name> <script></script> </card> card_2542.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>2542</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <part> <id>1</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>5</left> <top>182</top> <right>412</right> <bottom>201</bottom> </rect> <style>opaque</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> Palatino <textSize>14</textSize> <textStyle>bold</textStyle> <textHeight>18</textHeight> <name>MsgId</name> <script></script> </part> <content> <layer>background</layer> <id>3</id> <text>Page 19 of 20</text> </content> <content> <layer>background</layer> <id>9</id> <text>Demo of Dispatch Script</text> </content> <content> <layer>background</layer> <id>2</id> <text>he slightly modified version of the dispatch script is installed in this card. Instead of send a message it just displays the message name at the bottom of the page. Try the buttons. <a href="#" class="group">┬╖┬áPress┬áMe!┬áΓÇÜ</a> <a href="#" class="group">┬»┬áXlate┬á╧Ç┬á╦ÿ</a> <a href="#" class="group">├èSmooth┬áBitMaps</a> <a href="#" class="group">├ïUS┬áLetter</a> <a href="#" class="group">┬»┬áBang!*!┬á╦ÿ</a></text> </content> <name></name> <script>on mouseUpif the short name of the target is "Text" then-- have we hit a button?put the textStyle of the clickChunk into stylif styl contains "group" then-- highlight buttonset the textStyle of the clickChunk to (styl & ",bold")-- generate message nameput Xlate(the clickText, Ident) into msg_name-- restore button-- send message to current card-- send msg_name to this cdput "Message generated:" && msg_name into cd fld "MsgId"set the textStyle of the clickChunk to stylend ifend ifend mouseUpon closeCardput empty into cd fld "MsgId"end closeCard</script> </card> card_2092.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>2092</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <content> <layer>background</layer> <id>3</id> <text>Page 18 of 20</text> </content> <content> <layer>background</layer> <id>9</id> <text>The Message Dispatch Script</text> </content> <content> <layer>background</layer> <id>2</id> <text>he following is a sample script to dispatch clicks on sticky buttons in a background field to handlers in the current card. It is based on the one used in the ΓÇ£RegionsΓÇ¥ stack. The Xlate XFCN is used to perform the mapping from sticky button name to message name. on mouseUp -- have we hit a button? put the textStyle of the clickChunk into styl if styl contains "group" then -- highlight button set the textStyle of the clickChunk to (styl & ",bold") -- generate message name put Xlate(the clickText, Ident) into msg_name -- restore button set the textStyle of the clickChunk to styl -- send message to current card do "send" && msg_name && "to this cd" end if end mouseUp</text> </content> <content> <layer>background</layer> <id>12</id> <highlight> <true /> </highlight> </content> <name></name> <script></script> </card> card_8909.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>8909</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <content> <layer>background</layer> <id>3</id> <text>Page 17 of 20</text> </content> <content> <layer>background</layer> <id>9</id> <text>Standard Xtab Resources</text> </content> <content> <layer>background</layer> <id>2</id> <text>here are four Xtab resources supplied:LowerCase, UpperCase┬á┬á┬á┬á┬áMaps all upper case characters to lower case and vice-versa.Identifier┬á┬á┬á┬á┬áMaps option-(, option-), option-<, option-> (Sticky Button font┬á┬á┬á┬á┬ábutton ends) and non-breaking space to _ (underscore). Maps all┬á┬á┬á┬á┬áother non-HyperTalk identifier characters to (in psuedo┬á┬á┬á┬á┬áHyperTalk):┬á┬á┬á┬á┬á┬á┬áNumToChar((CharToNum(c) bitAnd 0x1F) bitOr 0x80)┬á┬á┬á┬á┬áThat is, to an equivalent alphabetic character in the range 0x80 to┬á┬á┬á┬á┬á0x9F. This is the table used for sticky buttons.None┬á┬á┬á┬á┬áNull mapping table, supplied as a basis for building your own┬á┬á┬á┬á┬áusing ResEdit.</text> </content> <content> <layer>background</layer> <id>12</id> <highlight> <true /> </highlight> </content> <name></name> <script></script> </card> card_8529.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>8529</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <content> <layer>background</layer> <id>3</id> <text>Page 16 of 20</text> </content> <content> <layer>background</layer> <id>9</id> <text>The Xlate XFCN</text> </content> <content> <layer>background</layer> <id>2</id> <text>he HyperTalk equivalent of Xlate is: function Xlate input,table put empty into output repeat with i = 1 to number of chars in input put char CharToNum(char i of input) of table after output end repeat return output end XlateExcept that Xlate is a lot faster and the table comes from an Xtab resource.</text> </content> <name></name> <script></script> </card> card_8357.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>8357</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <content> <layer>background</layer> <id>3</id> <text>Page 15 of 20</text> </content> <content> <layer>background</layer> <id>9</id> <text>he Xlate XFCN</text> </content> <content> <layer>background</layer> <id>2</id> <text>ransliterating one string character for character to another using HyperTalk is rather slow, especially if many tests need to be made on each character. Xlate is a HyperCard external function which quickly transliterates a string using a named mapping table:┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬áXlate(input string, table name) returns stringThe input string may be any HyperTalk expression. The table name is the name of a Xtab resource which contains the translation table. An Xtab resource is simply any array of 256 bytes, byte i containing the mapping for character number i.</text> </content> <name></name> <script></script> </card> card_7999.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>7999</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <content> <layer>background</layer> <id>3</id> <text>Page 14 of 20</text> </content> <content> <layer>background</layer> <id>9</id> <text>From Sticky Buttons To Messages</text> </content> <content> <layer>background</layer> <id>12</id> <highlight> <true /> </highlight> </content> <content> <layer>background</layer> <id>2</id> <text>hen there are multiple sticky buttons in a field the handler needs to determine which button was hit when a mouseUp occurs and dispatch to the appropriate action. There are two main ways to code this dispatch:ΓÇó┬á┬áUse a sequence of conditional statements to test whether the┬á┬á┬á┬á┬áclickText, which is the button name, is equal to or contains┬á┬á┬á┬á┬áanother string and then proceed accordingly. ΓÇó┬á┬áMap the clickText to a message and dispatch using HyperTalks┬á┬á┬á┬á┬ásend command.The first method is used by the previous handlers in this stack, and is suitable where there are only a few possibilities. The second method is suitable where there a large number of possibilites, for example in a handler in a background field. However, the mapping from the clickText to a suitable message name is non-trival as button names are typically not valid HyperTalk identifiers.The next few pages describe how to implement the second method of dispatch and start with the description of an XFCN designed to aid the mapping problem.</text> </content> <name></name> <script></script> </card> card_7728.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>7728</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <content> <layer>background</layer> <id>3</id> <text>Page 13 of 20</text> </content> <content> <layer>background</layer> <id>9</id> <text>Multiple Sticky Buttons</text> </content> <content> <layer>background</layer> <id>2</id> <text>f there are multiple sticky buttons in a field the mouseUp handler has to distinguish between them by examining the clickText. The usual font used by the Script Editor is Monaco, which does not of course have the special characters which exist in Sticky Buttons, this makes typing the titles of sticky buttons as HyperTalk strings a little difficult, and rather error prone! To solve this problem a second font is provided, ΓÇ£Sticky MonacoΓÇ¥, which may be set as the Script Editor font by setting scriptTextFont.Try these to see the difference: <a href="#" class="group">┬»┬áEdit┬á╧Ç┬á╦ÿ</a> and <a href="#" class="group">┬»┬áSticky┬áEdit┬á╧Ç┬á╦ÿ</a>.</text> </content> <name></name> <script>-- hit Enter to continueon mouseUp-- make sure we're in the right fieldif the short name of the target is not "Text" thenexit mouseUpend ifput the textStyle of the clickChunk into styl-- check we hit a buttonif "group" is not in styl then exit mouseUp-- got the button, highlightset the textStyle of the clickChunk to (styl & ",bold")-- determine actionif the clickText is "┬»┬áEdit┬á╧Ç┬á╦ÿ" thenedit the script of meelse if the clickText is "┬»┬áSticky┬áEdit┬á╧Ç┬á╦ÿ" thenput the scriptTextFont into origset the scriptTextFont to "Sticky Monaco"edit the script of meset the scriptTextFont to origend if-- un-highlight the buttonset the textStyle of the clickChunk to stylend mouseUp</script> </card> card_7516.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>7516</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <content> <layer>background</layer> <id>3</id> <text>Page 12 of 20</text> </content> <content> <layer>background</layer> <id>2</id> <text>he following handler is a simple example of sticky buttons, it handles one button only and plays a tune just like the button on the Introduction card:on mouseUp -- make sure we're in the right field if the short name of the target is not "Text" then exit mouseUp end if put the textStyle of the clickChunk into styl -- check we hit a button if "group" is not in styl then exit mouseUp -- got the button, highlight set the textStyle of the clickChunk to (styl & ",bold") -- perform action playTune -- un-highlight the button set the textStyle of the clickChunk to stylend mouseUpThis handler is in the card script and not the field script, the filed in is in the background and shared by most of the cards in this stack, each if which has its own mouseUp handler.To try this script press: <a href="#" class="group">┬╖┬áPlay┬áTune┬áΓÇÜ</a> (you can safely type ├¢-. once the button has un-highlighted).</text> </content> <content> <layer>background</layer> <id>9</id> <text>A Simple Example</text> </content> <content> <layer>background</layer> <id>12</id> <highlight> <true /> </highlight> </content> <name></name> <script>on mouseUp-- make sure we're in the right fieldif the short name of the target is not "Text" thenexit mouseUpend ifput the textStyle of the clickChunk into styl-- check we hit a buttonif "group" is not in styl then exit mouseUp-- got the button, highlightset the textStyle of the clickChunk to (styl & ",bold")-- perform actionplayTune-- un-highlight the buttonset the textStyle of the clickChunk to stylend mouseUp</script> </card> card_7330.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>7330</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <content> <layer>background</layer> <id>3</id> <text>Page 11 of 20</text> </content> <content> <layer>background</layer> <id>9</id> <text>Building a Sticky Button</text> </content> <content> <layer>background</layer> <id>2</id> <text>)┬á┬áType the button using the Sticky Buttons font and group style.┬á┬á┬á┬á┬áFor plain rectangular buttons add italic style, for check-boxes and┬á┬á┬á┬á┬áradio buttons add underline style.2)┬á┬áWrite a mouseUp handler in the field to detect a mouse click┬á┬á┬á┬á┬áand perform the appropriate action. The handler cannot be a┬á┬á┬á┬á┬ámouseDown one as clickText & clickChunk are not set until┬á┬á┬á┬á┬ámouse up. The handler may be further down the inheritence┬á┬á┬á┬á┬áchain, but then the handler should check the target.3)┬á┬áThe first action the handler should take is to check that the┬á┬á┬á┬á┬átextStyle of the clickChunk contains group and exit if not. If you┬á┬á┬á┬á┬áhave other grouped but non-button text in your field your┬á┬á┬á┬á┬áshould also check the textFont and take the appropriate action if┬á┬á┬á┬á┬áit is not Sticky Buttons.</text> </content> <content> <layer>background</layer> <id>12</id> <highlight> <true /> </highlight> </content> <name></name> <script></script> </card> card_7151.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>7151</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <content> <layer>background</layer> <id>3</id> <text>Page 10 of 20</text> </content> <content> <layer>background</layer> <id>9</id> <text>The Sticky Buttons Characters</text> </content> <content> <layer>background</layer> <id>2</id> <text>he Sticky Buttons font contains of the following characters:Standard Characters: a ΓÇô z, A ΓÇô Z, 1 ΓÇô 9, etc.┬á┬á┬á┬á┬áAll the standard Chicago font characters are present. To make them easier to enter the four special symbols; ∩ú┐, ├Æ, ├Ü & ├¢; are also duplicated as option-K, option-L, option-: and option-Z respectively. These characters change their appearance according to the style; for example A for plain, A for italic, A for bold & bold italic, and A for underline.Non-Breaking Space: ┬á┬á┬á┬á┬áWhen drawing text, the Macintosh does not use the space character from a font but rather just paints a blank space. Therefore to obtain spaces in buttons you must use the non-breaking space, option-space which is taken from the font. For example; using spaces you will get ┬╖ Go Home ΓÇÜ instead of ┬╖┬áGo┬áHome┬áΓÇÜ.Button Ends: ┬╖, ΓÇÜ, ┬», ╦ÿ┬á┬á┬á┬á┬áThese characters are option-(, option-), option-< and option-> respectively. They all change their appearance correctly according to the style. These characters are narrower than the standard HyperCard button ends and should normally be combined with a non-breaking space. For example; using non-breaking spaces gives ┬╖┬áCancel┬áΓÇÜ, not using them gives ┬╖CancelΓÇÜ. Note: italic option-( & option-) produce plain round rectangle ends, a style not provided by HyperCard.Check-boxes and Radio Buttons: ├è, ├ï┬á┬á┬á┬á┬áThese characters are option-Tand option-U respectively. Unlike the button end characters, these incoporate the correct amount of white-space, so the first character of the title should follow immediately. In bold underline style they draw as the highlighted versions; ├è and ├ï.Icons:┬á┬á┬á┬á┬áThe following icons are provided by Sticky Buttons:┬á┬á┬á┬á┬á┬á┬á┬á┬á┬áoption-~┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┼╕┬á┬á┬á┬á┬á┬á┬á┬á┬á┬áoption-!┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬áΓüä┬á┬á┬á┬á┬á┬á┬á┬á┬á┬áoption-@┬á┬á┬á┬á┬á┬á┬á┬á┬áΓé¼┬á┬á┬á┬á┬á┬á┬áoption-┬ú┬á┬á┬á┬á┬á┬á┬á┬á┬á┬áΓÇ╣┬á┬á┬á┬á┬á┬á┬á┬á┬á┬áoption-$┬á┬á┬á┬á┬á┬á┬á┬á┬á┬áΓÇ║┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬áoption-%┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á∩¼ü┬á┬á┬á┬á┬á┬á┬á┬á┬á┬áoption-^┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á∩¼é┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬áoption-&┬á┬á┬á┬á┬á┬á┬á┬á┬á┬áΓÇí┬á┬á┬á┬á┬á┬á┬á┬á┬á┬áoption-W┬á┬á┬á┬á┬á┬áΓÇ₧┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬áoption-E┬á┬á┬á┬á┬á┬á┬á┬á┬á┬á┬áΓÇ░┬á┬á┬á┬á┬á┬á┬á┬á┬á┬áoption-R┬á┬á┬á┬á┬á┬á┬á┬á┬á├é┬á┬áInternational Note: option-@, option-┬ú and option-$ are option-shift-2, option-shift-3 and option-shift-4 respectively.</text> </content> <content> <layer>background</layer> <id>12</id> <highlight> <true /> </highlight> </content> <name></name> <script></script> </card> card_5952.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>5952</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <content> <layer>background</layer> <id>3</id> <text>Page 9 of 20</text> </content> <content> <layer>background</layer> <id>2</id> <text>he underline style draws <a href="#" class="group">├èCheck┬áBox</a> and <a href="#" class="group">├ïRadio┬áButton</a> button styles. Also included in the font are some useful icons, for example <a href="#" class="group">Γüä</a> and <a href="#" class="group">┼╕</a>.</text> </content> <content> <layer>background</layer> <id>9</id> <text>ΓÇªThe Sticky Buttons Font</text> </content> <name></name> <script>on mouseUpflashButtonend mouseUp</script> </card> card_6226.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>6226</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <content> <layer>background</layer> <id>3</id> <text>Page 8 of 20</text> </content> <content> <layer>background</layer> <id>9</id> <text>The Sticky Buttons Font</text> </content> <content> <layer>background</layer> <id>2</id> <text>Sticky ButtonsΓÇ¥ is a styled font; consisting of plain, bold, italic, bold italic, underline and bold underline members; which we have designed to draw HyperCard style buttons. The plain style draws <a href="#" class="group">┬»┬áShadow┬á╦ÿ</a> and <a href="#" class="group">┬╖┬áRound┬áRectangle┬áΓÇÜ</a> button styles. The italic style draws the <a href="#" class="group">┬»┬áRectangle┬á╦ÿ</a> button style. Highlighted buttons are drawn with the bold styles; plain bold for <a href="#" class="group">┬»┬áShadow┬á╦ÿ</a> & <a href="#" class="group">┬╖┬áRound┬áRectangle┬áΓÇÜ</a> and italic bold for <a href="#" class="group">┬»┬áRectangle┬á╦ÿ</a>. </text> </content> <name></name> <script>on mouseUpflashButtonend mouseUp</script> </card> card_6774.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>6774</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <content> <layer>background</layer> <id>3</id> <text>Page 7 of 20</text> </content> <content> <layer>background</layer> <id>9</id> <text>From Active Text to Sticky Buttons</text> </content> <content> <layer>background</layer> <id>2</id> <text>Sticky buttons combine the property of ΓÇ£stickinessΓÇ¥ with that of the button metaphor. Active text provides the stickiness property but only supports half of the button metaphor; that of an action being initiated by a mouse click. However, active text neither looks like buttons or highlights like them, if this could be achieved then we would have sticky buttons.┬á┬á┬á┬á┬áActive text could be made to look like HyperCard buttons by using a special font in a similar way to Mike Horton's ΓÇ£Chicago SuburbsΓÇ¥ fonts which enable Macintosh buttons to be typed into documents. However, such simple text ΓÇ£buttonsΓÇ¥ would look wrong if highlighted as text & button highlighting are not the same.</text> </content> <name></name> <script></script> </card> card_5798.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>5798</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <part> <id>1</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>5</left> <top>205</top> <right>392</right> <bottom>219</bottom> </rect> <style>opaque</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> Palatino <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>13</textHeight> <name>Footnote</name> <script></script> </part> <part> <id>2</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>25</left> <top>62</top> <right>226</right> <bottom>108</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> Geneva <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>clickText</name> <script></script> </part> <part> <id>3</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>163</left> <top>62</top> <right>354</right> <bottom>121</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> Geneva <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>clickChunk</name> <script></script> </part> <part> <id>4</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>157</left> <top>182</top> <right>257</right> <bottom>204</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> Chicago <textSize>12</textSize> <textStyle>plain</textStyle> <name>Peek Script</name> <script>on mouseUpif not editScript("the script of this cd", "Peek of Active Text Script", "get 1") thenanswer "Sorry, not enough memory"end ifend mouseUp</script> </part> <content> <layer>background</layer> <id>3</id> <text>Page 6 of 20</text> </content> <content> <layer>background</layer> <id>9</id> <text>Active Text: Example Page</text> </content> <content> <layer>background</layer> <id>2</id> <text>he functions clickText & clickChunk and the group text style together allow the implementation of <a href="#" class="group">flexible*</a> active text. As an example of this flexibilty words on this page in italics have a popup defintion linked to them and those with <a href="#" class="group">superscripts</a><a href="#" class="group">ΓÇá</a> have ΓÇ£footnotesΓÇ¥ attached which appear at the bottom of the page. Active text does not suffer the drawbacks of buttons pasted over text; the text can be edited or scrolled without undesirable results.</text> </content> <content> <layer>card</layer> <id>2</id> <text>he clickText returns the word the reader click on. Can be used to implement ΓÇ£active textΓÇÖ.</text> </content> <content> <layer>card</layer> <id>3</id> <text>he clickChunk returns a chunk expression (a range of characters, not word number) for the word the reader clicked on.</text> </content> <name></name> <script>on mouseUpif the short name of the target is not "Text" then exit mouseUpput the clickText into txtput the textStyle of the clickChunk into stylif styl contains "italic" thendoDef txtelse if styl contains "group" thendoFoot txtend ifend mouseUpon doDef txtselect the clickChunklock screenshow cd fld txtunlock screen with barn door open fastwait 30lock screenhide cd fld txtunlock screen with barn door close fastend doDefon doFoot txtget "missing footnote"if txt is "superscriptsΓÇá" thenget "ΓÇálike this one"else if txt is "flexible*" thenget "*but not flexible enoughΓÇª"else if txt contains "sticky buttons" thenget "Γé¼the point of all this!"end ifput it into cd fld "Footnote"end doFooton closeCardput empty into cd fld "Footnote"pass closeCardend closeCard</script> </card> card_5072.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>5072</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <part> <id>1</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>125</left> <top>204</top> <right>279</right> <bottom>221</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> Palatino <textSize>12</textSize> <textStyle>plain</textStyle> <name>Highlight Grouped Text</name> <script>on mouseUpif the hilite of me then show groupselse hide groupsend mouseUp</script> </part> <content> <layer>background</layer> <id>3</id> <text>Page 5 of 20</text> </content> <content> <layer>background</layer> <id>2</id> <text>n <a href="#" class="group">HyperCard 2</a> multiple fonts and styles may be used within a single field. In addition to the usual styles a new style group is added which groups runs of characters together. Grouped character runs appear as a single word to <a href="#" class="group">the </a><a href="#" class="group">clickText</a><a href="#" class="group"> function</a>. Group style operates in the same way as other text styles and may be combined with them. The group style allows both multiple words to be combined as a single piece of active text and easy definition of which parts of a text should be active. The follo<a href="#" class="group">wing script</a>, which is installed on this page, demonstrates this: on mouseUp if the textStyle of the clickChunk contains "group" then answer "You clicked the group" && quote & clickText ┬¼ & quote end if end mouseUpUnlike the other text styles group normally has no visible effect on the text. The HyperTalk command <a href="#" class="group">show groups</a> highlights grouped text by drawing a gray line underneath it, the command <a href="#" class="group">hide groups</a> removes the highlighting. The button below toggles the visibility of grouped text on this page.</text> </content> <content> <layer>background</layer> <id>12</id> <highlight> <true /> </highlight> </content> <content> <layer>background</layer> <id>9</id> <text>ctive Text: The group text style</text> </content> <name></name> <script>on mouseUpif the short name of the target is not "Text" then pass mouseUpif the textStyle of the clickChunk contains "group" thenanswer "You clicked" && quote & the clickText & quoteend ifend mouseUpon closeCardif the hilite of btn "Highlight Grouped Text" thenclick at the loc of btn "Highlight Grouped Text"end ifpass closeCardend closeCard</script> </card> card_2868.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>2868</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <content> <layer>background</layer> <id>3</id> <text>Page 4 of 20</text> </content> <content> <layer>background</layer> <id>9</id> <text>ctive Text: The clickx Functions</text> </content> <content> <layer>background</layer> <id>2</id> <text>lickText and clickChunk are two functions which return the word in a field the reader clicked on and a chunk expression describing that word respectively. As an example the script of this page responds to mouse clicks by calling these functions and displaying the results in a dialog. The script which performs this is: on mouseUp answer "You clicked" && quote & the clickText & quote && ┬¼ "which is" && the clickChunk end mouseUpNote that HyperCard takes the defintion of a word literally when evaluating the clickText function; clicking on punctuation or other symbols will return an empty string. However, if you click on a non-word character then the clickChunk will still return a valid chunk expression for it.</text> </content> <content> <layer>background</layer> <id>12</id> <highlight> <true /> </highlight> </content> <name></name> <script>on mouseUpif the short name of the target is not "Text" then pass mouseUpanswer "You clicked" && quote & the clickText & quote && "which is" ┬¼&& the clickChunkend mouseUp</script> </card> card_6652.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>6652</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <content> <layer>background</layer> <id>3</id> <text>Page 3 of 20</text> </content> <content> <layer>background</layer> <id>9</id> <text>ctive Text in HyperCard v2</text> </content> <content> <layer>background</layer> <id>2</id> <text>ur method for sticky buttons is built upon the new active text features introduced in HyperCard version 2. Active text is text which is capable of responding to actions by the reader, such as clicking on the text with a pointing device. In HyperCard version 2 three functions; clickText, clickChunk & clickLine; and a new text style <a href="#" class="group">group</a> have been introduced to facilitate the construction of active text in fields. We start be describing these new features.</text> </content> <name></name> <script></script> </card> card_9675.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>9675</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <content> <layer>background</layer> <id>3</id> <text>Page 2 of 20</text> </content> <content> <layer>background</layer> <id>9</id> <text>ΓÇªIntroduction</text> </content> <content> <layer>background</layer> <id>12</id> <highlight> <true /> </highlight> </content> <content> <layer>background</layer> <id>2</id> <text>cknowledgementsThanks to two of the ├ƒeta testers of the Region Package, Ruben Leon & Olle Furburg, whose enthusiastic reaction to an earlier version of Sticky Buttons spurred me on to finish the job and do them properly. The public domain ΓÇ£Chicago SuburbsΓÇ¥ fonts by Mike Horton, which were designed to allow the representation of standard Macintosh buttons & menus in documents, gave me the original idea to build sticky buttons for HyperCard.CopyrightThe fonts in this stack, ΓÇ£Sticky ButtonsΓÇ¥ and ΓÇ£Sticky MonacoΓÇ¥, are placed in the public domain. The code resources, ΓÇ£editScriptΓÇ¥ and ΓÇ£XlateΓÇ¥ are ┬⌐ 1990, Nigel Perry. They are free for personal use and in stacks which are free, provided this copyright and conditions of use are included. They may not be used for commercial or profit-making purposes, or in Shareware, without permission.</text> </content> <name></name> <script></script> </card> card_2782.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>2782</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4644</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <part> <id>1</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>158</left> <top>89</top> <right>258</right> <bottom>111</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> Chicago <textSize>12</textSize> <textStyle>plain</textStyle> <name>Some MusicΓÇª</name> <script>on mouseUpplayTuneend mouseUp</script> </part> <content> <layer>background</layer> <id>3</id> <text>Page 1 of 20</text> </content> <content> <layer>background</layer> <id>9</id> <text>Introduction</text> </content> <content> <layer>background</layer> <id>2</id> <text>n HyperCard buttons are attached to either a card or a background, they cannot be attached directly to text. However, a button can be placed on top of text, for example:(Type Γîÿ-. if you get bored.) Unfortunately there are two problems with this method:ΓÇó┬á┬áAs the button is not attached to the text but laid on top of it,┬á┬á┬á┬áif the text is edited the button will not move. This means that┬á┬á┬á┬áafter every change the button needs to be repositioned, if the┬á┬á┬á┬ábuttons are being used for footnote references or so called ΓÇ£hot┬á┬á┬á┬álinksΓÇ¥ this can be a lot of work.ΓÇó┬á┬áThe second problem should now be apparent; if the text the┬á┬á┬á┬ábutton is laid upon is scrollable, then as the text is scrolled the┬á┬á┬á┬ábutton stays put.The standard HyperText solution to this problem is to use sticky buttons, that is buttons which are attached to, or part of, the text and move with it. Unfortunately HyperCard does not support sticky buttons, making it less useful for HyperText applications. This paper describes a method for extending HyperCard to include sticky buttons by combining the new active text support of version 2 with a specially written font.</text> </content> <content> <layer>background</layer> <id>12</id> <highlight> <true /> </highlight> </content> <name></name> <script></script> </card> card_5541.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>5541</id> <filler1>0</filler1> <bitmap>BMAP_4238.pbm</bitmap> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>5304</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3160.css" /> <part> <id>7</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>150</left> <top>180</top> <right>186</right> <bottom>210</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>1011</icon> <textAlign>center</textAlign> Chicago <textSize>12</textSize> <textStyle>plain</textStyle> <name>Home</name> <script>on mouseUpgo homeend mouseUp</script> </part> <part> <id>8</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>191</left> <top>180</top> <right>227</right> <bottom>210</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>28023</icon> <textAlign>center</textAlign> Chicago <textSize>12</textSize> <textStyle>plain</textStyle> <name>Intro</name> <script>on mouseUpvisual effect dissolve to grayvisual effect dissolvego to stack "Start Here"end mouseUp</script> </part> <part> <id>9</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>232</left> <top>180</top> <right>268</right> <bottom>210</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>26425</icon> <textAlign>center</textAlign> Chicago <textSize>12</textSize> <textStyle>plain</textStyle> <name>Next</name> <script>on mouseDownset lockMessages to truelock screenput the number of the next cd into tgsend closeCard to this cdgo next cdif the hilite of bg btn "Scroll" then set the style of fld "Text" to scrollingelse set the style of fld "Text" to opaqueunlock screen with wipe leftset lockMessages to falsesend openCard to cd tgend mouseDown</script> </part> <part> <id>11</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>390</left> <top>187</top> <right>416</right> <bottom>211</bottom> </rect> <style>opaque</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>25002</icon> <textAlign>center</textAlign> Chicago <textSize>12</textSize> <textStyle>plain</textStyle> <name>New Button</name> <script>on mouseUpvisual effect barn door opengo cd "Help"end mouseUp</script> </part> <content> <layer>background</layer> <id>2</id> <text>Sticky Buttons</text> </content> <content> <layer>background</layer> <id>3</id> <text>Nigel Perry, November 1990</text> </content> <content> <layer>background</layer> <id>5</id> <text>bstractSticky buttons are buttons which are attached to text, usually scrollable, and move with it. Sticky buttons are very useful in HyperText documents, but unfortunately HyperCard does not support them. This paper describes a method for implementing sticky buttons in HyperCard by combining the use of grouped text, a new feature in HyperCard 2, and special fonts.</text> </content> <content> <layer>background</layer> <id>6</id> <text>Nigel Perry, Dept of Computing, Imperial College, 180 Queens Gate, London SW7, UKEmail: np@doc.ic.ac.uk</text> </content> <name></name> <script>on arrowKey whichif which is "Right" thensend mouseUp to btn "Next"elseif which is not "Left" thenpass arrowKeyend ifend ifend arrowKey</script> </card>